******************************************************************************
	*** Figure 1 ***
******************************************************************************

	*Item discrimination figures
	insheet using "${itemdta}" , comma clear
	
	*gen order
	sort mean
	gen order=_n
	
	*Manually generate labels
	gen lab=""
	replace lab="Bus. Association" 			if variable=="input_assn"
	replace lab="Transactional bribery" 	if variable=="input_bribes1"
	replace lab="General bribery" 			if variable=="input_bribes2"
	replace lab="Govt. ownership (%)"		if variable=="input_govtown"
	replace lab="Usefulness of lobbying"	if variable=="input_lobby"
	*replace lab="Political connection"		if variable=="input_pc"
	replace lab="Firm size (num. workers)"	if variable=="input_size"
	
	twoway rspike q5 q95 order , horizontal xlab(-5 " " -2 0 2 4 6, nogrid notick) ylab( -.25 " ", nogrid notick) yscale(lstyle(none)) ytitle("") xtitle("") legend(off) xline(0) ysize(2.5) xsize(4) lcolor(gs12)  lwidth(thick) /*
	*/ || scatter  order mean , msymbol(0) msize(large)  mlab(lab) mlabsize(medium)  mlabpos(9) mlabgap(.2in) mcolor(gs12) text(6 2.5 "Political connection", size(medium)) 
	
	graph export "${outfigures}\Figure1.pdf", replace
	
	***	END ***